home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / DATABASE / OBJ1_2.ZIP;1 / C_COLOR.PRG < prev    next >
Encoding:
Text File  |  1993-01-21  |  3.0 KB  |  39 lines
  1. //*****************************************************************************
  2. // C_Color.prg
  3. // Color class for OBJECT v2.03
  4. // Copyright (c) 1991, JHK, JHK-Software, Piestany
  5. // Please compile with: /N/M/W/A
  6. //-----------------------------------------------------------------------------
  7. //m->tColor see ErrorSys.prg (0=black/white, 1=laptop, 2=monochromVGA 3=color)
  8.  
  9. #include "Object.ch"    //CLIPPER:Normal,Enhanced,Border,NotUse,Unselect
  10.                         //WINDOW: Normal,Enhanced,Shadow,Title, Unselect
  11.                         //MENU:   Normal,Selected,Shadow,Letter,Disable
  12. create class Color
  13.   export:
  14.   var Black // "w/n,  n/w,  n/n,  w+/n,  n/w"
  15.   var Desk  // if(m->tColor==3, "w/b,   r/bg,  n/w, w/b,   w/b",   if(m->tColor==2, "w/b,   r/w,   n/gr, w/b,   w/b",   if(m->tColor==1, "rb/n, b/w,  gr/r, rb/n, rb/n",  "w/n, n/w, n/n, w/n,  w/n")))    //desk (unselect window)
  16.   var Edit  // if(m->tColor==3, "bg+/b, gr+/r, n/w, n/w,  gr+/bg", if(m->tColor==2, "bg+/b, n/w,   n/gr, n/bg, gr+/gr", if(m->tColor==1, "w/n,  w+/b, gr/r, n/bg, w/b",   "w/n, n/w, n/n, w+/n, n/w")))    //Blue
  17.   var View  // if(m->tColor==3, "bg+/b, w+/bg, n/w, n/w,   w+/bg", if(m->tColor==2, "bg+/b, g+/gr, n/gr, n/bg, g+/gr",  if(m->tColor==1, "w/n,  w/b,  gr/r, n/bg, w/b",   "w/n, n/w, n/n, w+/n, n/w")))    //ViewBlue
  18.   var Help  // if(m->tColor==3, "n/w,   gr+/r, n/w, w+/bg, n/gr",  if(m->tColor==2, "n/w,   gr+/r, n/gr, w+/bg, n/gr",  if(m->tColor==1, "w/b,  w+/r, gr/r, n/bg, w/r",   "n/w, w/n, n/n, w+/n, w/n")))    //White
  19.   var Menu  // if(m->tColor==3, "n/bg,  w+/gr, n/w, w+/bg, n+/bg", if(m->tColor==2, "n/w,   w+/bg, n/gr, w+/bg, b+/w",  if(m->tColor==1, "b/w,  w+/n, gr/r, n+/w, rb/w",  "n/w, w/n, n/n, w+/n, n/w")))      //Cyan
  20.   method New=ColorNew             //o:New()
  21.   endclass
  22.  
  23.  
  24. //*****************************************************************************
  25. // Color:New() --> self
  26. // initialize new object
  27. //
  28. constructor ColorNew()
  29.   ::Black:= "w/n,  n/w,  n/n,  w+/n,  n/w"
  30.   ::Desk:= if(m->tColor==3, "w/b,   r/bg,  n/w, w/b,   w/b",   if(m->tColor==2, "w/b,   r/w,   n/gr, w/b,   w/b",   if(m->tColor==1, "rb/n, b/w,  gr/r, rb/n, rb/n",  "w/n, n/w, n/n, w/n,  w/n")))
  31.   ::Edit:= if(m->tColor==3, "bg+/b, gr+/r, n/w, n/w,  gr+/bg", if(m->tColor==2, "bg+/b, n/w,   n/gr, n/bg, gr+/gr", if(m->tColor==1, "w/n,  w+/b, gr/r, n/bg, w/b",   "w/n, n/w, n/n, w+/n, n/w")))
  32.   ::View:= if(m->tColor==3, "bg+/b, w+/bg, n/w, n/w,   w+/bg", if(m->tColor==2, "bg+/b, g+/gr, n/gr, n/bg, g+/gr",  if(m->tColor==1, "w/n,  w/b,  gr/r, n/bg, w/b",   "w/n, n/w, n/n, w+/n, n/w")))
  33.   ::Help:= if(m->tColor==3, "n/w,   gr+/r, n/w, w+/bg, n/gr",  if(m->tColor==2, "n/w,   gr+/r, n/gr, w+/bg, n/gr",  if(m->tColor==1, "w/b,  w+/r, gr/r, n/bg, w/r",   "n/w, w/n, n/n, w+/n, w/n")))
  34.   ::Menu:= if(m->tColor==3, "n/bg,  w+/gr, n/w, w+/bg, n+/bg", if(m->tColor==2, "n/w,   w+/bg, n/gr, w+/bg, b+/w",  if(m->tColor==1, "b/w,  w+/n, gr/r, n+/w, rb/w",  "n/w, w/n, n/n, w+/n, n/w")))
  35.   return(self)
  36.  
  37. //------------------------------------------------------- eof (c)JHK ----------
  38.  
  39.